-- background: 2669 from stack: in
-- bmap block id: 3708
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on tidy
  -- global gTELine
  -- put bg fld id 15 into line gTELine of bg fld id 14
  put bg fld "subList" into temp
  repeat with k = 1 to number of lines of temp
    if line k of temp = "" then
      delete line k of temp
    end if
  end repeat
  put temp into bg fld "subList"
end tidy

on updateSubList theText,theWord
  global gTELine
  if theWord = 4 then
    put (word 1 to 3 of line gTELine of bg fld "subList") && theText into line gTELine of bg fld "subList"
  else
    put theText into word theWord of line gTELine of bg fld "subList"
  end if
end updateSubList

function omitSpace theText
repeat
  --if offset(" ",theText) ≠ 0 then
  get offset(" ",theText)
  if it ≠ 0 then
    delete char offset(" ",theText) of theText
  else
    exit repeat
  end if
end repeat
return theText
end omitSpace



-- part 38 (field)
-- low flags: 20
-- high flags: 4001
-- rect: left=66 top=6 right=21 bottom=421
-- title width / last selected line: 1
-- icon id / first selected line: 1 / 1
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: sendTo


-- part 7 (button)
-- low flags: 00
-- high flags: A009
-- rect: left=365 top=230 right=258 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Send
----- HyperTalk script -----
on mouseUp
  global mailGood
  put true into mailGood
  close window (short name of this stack)
end mouseUp

on sendTheMail
  global gFCHeaderShare,gFCBodyShare,gRecipientList

  put line 1 of bg fld "sendTo" into gRecipientList
  if gRecipientList = "" then err "No recipient specified."
  if "," is in gRecipientList then put replaceChar(gRecipientList,","," ") into gRecipientList

  put "Subject:" && bg fld "subject" & return into gFCHeaderShare
  put "To:" && gRecipientList & return after gFCHeaderShare
  put "Reply-To:" && bg fld "Reply" & return after gFCHeaderShare
  put "From:" && bg fld "Reply" & return after gFCHeaderShare
  put bg fld "body" & return & return into gFCBodyShare

  put selectedText(bg btn id 45) into mtype
  serverTask "sendMail_" & mtype

  if freeSize of this stack > 5000 then doMenu "compact stack"
end sendTheMail

on err theErr
  beep
  answer theErr with "OK"
  set hilite of bg btn id 7 to false
  exit to hyperCard
end err



-- part 39 (field)
-- low flags: 20
-- high flags: 4001
-- rect: left=66 top=23 right=38 bottom=421
-- title width / last selected line: 1
-- icon id / first selected line: 1 / 1
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: reply
----- HyperTalk script -----
on closeField
  checkIt
end closeField

on exitField
  checkIt
end exitField

on checkIt
  if bg fld "reply" = "" then
    if hilite of bg btn id 43 then
      put 43 into theBtn
    else
      put 44 into theBtn
    end if
    send mouseUp to bg btn id theBtn
  end if
end checkIt



-- part 25 (button)
-- low flags: 00
-- high flags: A008
-- rect: left=279 top=234 right=254 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  global mailGood
  put false into mailGood
  close window (short name of this stack)
end mouseUp



-- part 34 (field)
-- low flags: 20
-- high flags: 4001
-- rect: left=66 top=40 right=55 bottom=421
-- title width / last selected line: 1
-- icon id / first selected line: 1 / 1
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: subject


-- part 27 (field)
-- low flags: 04
-- high flags: 0007
-- rect: left=10 top=77 right=226 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: body
----- HyperTalk script -----
on mouseUp
  put selectedText(me) into temp
  -- delete word 1 of temp
  put temp into bg fld "editHeader"
end mouseUp


-- part 41 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=6 top=25 right=37 bottom=56
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseDown
  put bg fld "reply" into t
  put replaceAliasStr(bg fld "reply") into bg fld "reply"

  wait until the mouse is up
  put t into bg fld "reply"
end mouseDown


-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=431 top=3 right=19 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 22604 / 22604
-- text alignment: 1
-- font id: 16383
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  callHelp "New Mail"
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: A10B
-- rect: left=13 top=58 right=73 bottom=150
-- title width / last selected line: 55
-- icon id / first selected line: 1 / 1
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Mail type
----- HyperTalk script -----
on mouseUp
  checkMType
end mouseUp

on checkMType
  put selectedText(bg btn id 45) into t
  set enabled of bg btn "list" to false
  set lockText of bg fld "sendTo" to false

  if t = "Internet" then
    put "[Admin]@[Domain]" into bg fld "reply"
  else if t = "FirstClass" then
    global gFCAdminName
    put gFCAdminName into bg fld "reply"
  else if t = "List" then
    global gListPath
    put "[Admin]@[Domain]" into bg fld "reply"

    put fileList(gListPath) into bg btn "list"
    select line 1 of bg btn "list"
    set enabled of bg btn "list" to true
    set lockText of bg fld "sendTo" to true
    send mouseUp to bg btn "list"
  end if
end checkMType



-- part 46 (button)
-- low flags: 01
-- high flags: A10B
-- rect: left=166 top=58 right=73 bottom=312
-- title width / last selected line: 25
-- icon id / first selected line: 1 / 1
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: List
----- HyperTalk script -----
on mouseUp
  put selectedText(me) & "@[Domain]" into bg fld "sendTo"
end mouseUp


-- part contents for background part 45
----- text -----
Internet
List
FirstClass

-- part contents for background part 46
----- text -----
hdmail
MUM